home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / door / dparm12.zip / CALLBACK.BAT next >
DOS Batch File  |  1992-12-06  |  2KB  |  81 lines
  1. rem **************************
  2. rem ****** CALLBACK.BAT ******
  3. rem **************************
  4. rem ** DOS local call-back door; uses DOORPARM.COM & PASSPARM.BAT **
  5.  
  6. rem passed variables: 
  7. rem %1 = comport, %2 = baud, %3 = fname, %4 = lname, 
  8. rem %5 = voice #, %6 = modem #, %7 = seclevel, %8 = mins remaining, 
  9. rem %9 = color, %10 = error correction
  10.  
  11. @echo off             
  12. set dummy1=
  13. rem (frees extra environment space in WC! shell)
  14. rem ("prompt" with no parameters works, also)
  15.  
  16. rem ***********************
  17. if "%1" == "COM0:" goto end
  18. rem disable local usage
  19. rem ***********************
  20.  
  21. echo %1
  22. echo ** processing local callback for %3 %4  
  23. echo ** initializing environment variables
  24. set comport=%1
  25. set dialout=%6
  26. if %6 == N/A set dialout=%5
  27. echo %3 %4 callback at %dialout% >> \wc30\doors\callback.log
  28.  
  29. echo ** stripping area code and "-" from target number
  30. for %%Y in (/%dialout%) do set dialout=%%Y
  31. for %%Y in (/%dialout%) do set dialout=%%Y
  32. for %%Y in (/%dialout%) do set dialout=%%Y
  33. for %%Y in (/%dialout%) do set dialout=%%Y
  34.  
  35. echo ** sending instructions to the user 
  36. rem PAUZ.EXE is found in PAUZ15.ZIP
  37. echo   > %comport%
  38. if %9 == GR echo  > %comport%
  39. echo Welcome to CloudBase Local Callback! > %comport%
  40. echo   > %comport%
  41. \wc30\utils\pauz space 1 >nul
  42. if %9 == GR echo  > %comport%
  43. echo You will be called at %dialout%... > %comport%
  44. \wc30\utils\pauz space 1 >nul
  45. if %9 == GR echo  > %comport%
  46. echo When the phone rings, type ATA (in capitals), then press return. > %comport%
  47. \wc30\utils\pauz space 1 >nul
  48. if %9 == GR echo  > %comport%
  49. echo Please do NOT pick up and say Hello. > %comport%
  50. echo   > %comport%
  51. \wc30\utils\pauz space 4 >nul
  52. if %9 == GR echo  > %comport%
  53. echo Terminating connection... > %comport%
  54. if %9 == GR echo  > %comport%
  55. \wc30\utils\pauz space 1 >nul
  56.  
  57. echo ** dropping carrier
  58. rem DTR.COM is found in DOSMODEM.ZIP
  59. \wc30\utils\dtr %comport% off
  60. \wc30\utils\pauz space 2 >nul
  61. \wc30\utils\dtr %comport% on
  62. \wc30\utils\pauz space 8 >nul
  63.  
  64. echo ** sending modem ATZ
  65. echo ATZ > %comport%
  66. \wc30\utils\pauz space 2 >nul
  67.  
  68. echo ** checking remote for error correction 
  69. shift 
  70. if %9 == N echo ** disabling call-out error correction
  71. if %9 == N echo AT&M0 > %comport%
  72. if %9 == N \wc30\utils\pauz space 2 >nul
  73.  
  74. echo ** dialing %dialout%
  75. echo ATB1DT %dialout% > %comport%
  76. \wc30\utils\pauz space 30 
  77. set comport=
  78. set dialout=
  79.  
  80. :end
  81.